SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TDDEVO_NCRP_I01]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS	               --*/
/*---Sistema              : Tesoreria                  --*/
/*---M«dulo               : Empresa                    --*/
/*---Programa             : Guias Ingreso (O/C-O/S)    --*/
/*---Script               : SP_TDDEVO_NCPR_I01.sql--*/
/*---Nombre SP            : SP_TDDEVO_NCPR_I01    --*/
/*---Desarrollado por     : Javier Flores A.           --*/
/*---Fecha Creaci«n       : 07/03/2000                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi«n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     : Javier Flores A.	       --*/
/*---Fecha Modificaci«n   : 28/10/2003		       --*/ 
/*---Detalle Modificaci«n : Habilitacion	       --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios  STANDAR                              --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/* DROP PROC SP_TDDEVO_NCPR_I01 			 */
/* GRANT ALL ON SP_TDDEVO_NCRP_I01 TO PUBLIC  		 */
/* SP_TDDEVO_NCPR_I01                                    */
/*-------------------------------------------------------*/
@ISCO_EMPR       TD_VC_003,
@ISCO_USUA_MODI  TD_VC_008,
@ISCO_PROV       TD_VC_020,
@ISCO_TIPO_DOCU  TD_VC_003,
@ISNU_DOCU_PROV  TD_VC_020,
@ISCO_MONE       TD_VC_003,
@ISTI_DOCU_DEVO  TD_VC_003,
@ISNU_DOCU_DEVO  TD_VC_020,
@INIM_DOCU_ORIG  TD_NU_016_004,
@INIM_CONV       TD_NU_016_004,
@INNU_CORR       TD_IN_001,
@ISCO_UNID       TD_VC_003,
@ISCO_ALMA       TD_VC_003,
@INFA_TIPO_CAMB  TD_NU_016_004
	As
BEGIN

Declare
  @VNNU_CORR       TD_IN_001,
  @VDFE_USUA_MODI  TD_DT_001, 


  @VSST_CNTR_PRES  TD_VC_001, 
  @VNAA_CNTR       TD_IN_001, 
  @VNMM_CNTR       TD_IN_001, 
  @VNNU_FETC_0001  TD_IN_001,	/* Status del cursor */
  @CSCO_PART	   TD_VC_020, 
  @VSTI_SITU	   TD_VC_003, 
  @VSST_CNTR_PARA  TD_VC_001, 
  @VNIM_PART 	   TD_NU_016_004, 
  @VNCA_PART       TD_IN_001,
  @VSVA_MENS 	   TD_VC_100, 
  @VNIM_SALD	   TD_NU_016_004, 
  @VSST_SIGN	   TD_VC_001, 
  @VNIM_REAL	   TD_NU_016_004, 
  @VSCO_MONE_PART  TD_VC_003, 
  @VNIM_UNIT	   TD_NU_016_004, 
  @VSCO_MONE_ORCO  TD_VC_003, 
  @VDFE_EMIS_ORCO  TD_DT_001, 
  @VDFE_EMIS_DOCU  TD_DT_001, 
  @VSTI_CAMB	   TD_VC_001, 
  @VSTI_ORIG	   TD_VC_001, 
  @VSCO_MONE_NACI  TD_VC_003, 
  @VSCO_MONE_EXTR  TD_VC_003, 
  @VNFA_CAMB_DOCU  TD_NU_016_004, 
  @VNFA_CAMB_ORCO  TD_NU_016_004, 
  @VSTI_CAMB_LOGI  TD_VC_001, 
  @VSTI_ORIG_LOGI  TD_VC_001,
  @VSMO_NACI_LOGI  TD_VC_003,  
  @VSMO_EXTR_LOGI  TD_VC_003,   
  @VNIM_COMP       TD_NU_016_004, 
  @VNNU_REGI_EMPR  TD_IN_001,
  @VSCO_UNID_CNTB  TD_VC_003,
  @VSCO_TIAU_PROV  TD_VC_001,
  @VNIM_MVTO_CNTB  TD_NU_016_004,
  @VNNU_SECU_PRES  TD_IN_001,
  @VSCO_MONE_DOCU  TD_VC_003,
  @VSST_PRES       TD_VC_001

Begin Tran SP_TDDEVO_NCRP_I01

     SELECT @VDFE_USUA_MODI = Getdate()

     If @INNU_CORR IS NULL
        Begin
          Select @VNNU_CORR = NU_CORR
          From   TDDEVO_NCRP
          Where  CO_EMPR = @ISCO_EMPR
          And    CO_PROV = @ISCO_PROV 

          And    CO_TIPO_DOCU = @ISCO_TIPO_DOCU
          AnD    NU_DOCU_PROV = @ISNU_DOCU_PROV

          If @VNNU_CORR > 0
             Select @VNNU_CORR = @VNNU_CORR + 1
          Else
             Select @VNNU_CORR = 1   

          If @ISTI_DOCU_DEVO is not Null AND @ISTI_DOCU_DEVO != ''
             Begin
                 Insert into TDDEVO_NCRP ( CO_EMPR, CO_PROV, CO_TIPO_DOCU, NU_DOCU_PROV,
        	 NU_CORR, TI_DOCU_DEVO, NU_DOCU_DEVO, CO_MONE,
                 IM_DOCU_ORIG, IM_CONV, CO_ALMA, CO_UNID )
                 Values (@ISCO_EMPR, @ISCO_PROV, @ISCO_TIPO_DOCU, @ISNU_DOCU_PROV,
                 @VNNU_CORR, @ISTI_DOCU_DEVO, @ISNU_DOCU_DEVO, 
   		 @ISCO_MONE, @INIM_DOCU_ORIG, @INIM_CONV, @ISCO_ALMA, @ISCO_UNID)

                 If @@error <> 0
                    Begin
                      Rollback tran
	              Return
                   End    

                Update 	TCDOCU_ALMA 
		Set 	ST_TESO = 'S', 
			CO_USUA_MODI = @ISCO_USUA_MODI, 
			FE_USUA_MODI = @VDFE_USUA_MODI
                Where  	NU_DOCU = @ISNU_DOCU_DEVO
                And    	TI_DOCU = @ISTI_DOCU_DEVO
                And    	CO_ALMA = @ISCO_ALMA
		And    	CO_UNID = @ISCO_UNID
		And    	CO_EMPR = @ISCO_EMPR

                If @@error <> 0
                   Begin
			Rollback tran
			Return
	           End    

                Update 	TMDOCU_PROV 
		Set 	ST_ORIG_COSE = 'C', 
			CO_USUA_MODI = @ISCO_USUA_MODI, 
			FE_USUA_MODI = GETDATE()
                Where  	CO_EMPR = @ISCO_EMPR
                And    	CO_PROV = @ISCO_PROV 
                And     CO_TIPO_DOCU = @ISCO_TIPO_DOCU
                And     NU_DOCU_PROV = @ISNU_DOCU_PROV

                If @@error <> 0
                   Begin
                     Rollback tran
	             Return
                   End    
             End
  End --del If



Commit Tran
END
/*-------------------------- Fin ------------------------------*/


GO
